home *** CD-ROM | disk | FTP | other *** search
/ Computer Music Interactive 14 / CMi14.iso / pc / Shared / 00018_Script_Other Scripts < prev    next >
Encoding:
Text File  |  1999-10-04  |  1.3 KB  |  53 lines
  1. on setTheVolumePlease
  2.   
  3.   if the keyPressed = "1" then
  4.     if the machineType = 256 then
  5.       set the volume of sound 1 = 36
  6.     else
  7.       set the soundLevel = 1
  8.     end if
  9.   else if the keyPressed = "2" then
  10.     if the machineType = 256 then
  11.       set the volume of sound 1 = 72
  12.     else
  13.       set the soundLevel = 2
  14.     end if
  15.   else if the keyPressed = "3" then
  16.     if the machineType = 256 then
  17.       set the volume of sound 1 = 108
  18.     else
  19.       set the soundLevel = 3
  20.     end if
  21.   else if the keyPressed = "4" then
  22.     if the machineType = 256 then
  23.       set the volume of sound 1 = 144
  24.     else
  25.       set the soundLevel = 4
  26.     end if
  27.   else if the keyPressed = "5" then
  28.     if the machineType = 256 then
  29.       set the volume of sound 1 = 180
  30.     else
  31.       set the soundLevel = 5
  32.     end if
  33.   else if the keyPressed = "6" then
  34.     if the machineType = 256 then
  35.       set the volume of sound 1 = 216
  36.     else
  37.       set the soundLevel = 6
  38.     end if
  39.   else if the keyPressed = "7" then
  40.     if the machineType = 256 then
  41.       set the volume of sound 1 = 255
  42.     else
  43.       set the soundLevel = 7
  44.     end if
  45.   else if the keyPressed = "0" then
  46.     if the machineType = 256 then
  47.       set the volume of sound 1 = 0
  48.     else
  49.       set the soundLevel = 0
  50.     end if
  51.   end if
  52.   
  53. end setTheVolumePlease